home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / ftp4w26a / samples / basic / ftp_conn.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-06-10  |  3.7 KB  |  130 lines
  1. VERSION 2.00
  2. Begin Form Connectform 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Connect session"
  6.    ClientHeight    =   2385
  7.    ClientLeft      =   1980
  8.    ClientTop       =   2745
  9.    ClientWidth     =   3675
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H0000C0C0&
  12.    Height          =   2790
  13.    Left            =   1920
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2385
  18.    ScaleWidth      =   3675
  19.    Top             =   2400
  20.    Width           =   3795
  21.    Begin CommandButton Command2 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "Cancel"
  24.       Height          =   375
  25.       Left            =   2520
  26.       TabIndex        =   5
  27.       Top             =   1800
  28.       Width           =   975
  29.    End
  30.    Begin CommandButton Command1 
  31.       Caption         =   "Login"
  32.       Default         =   -1  'True
  33.       Height          =   375
  34.       Left            =   120
  35.       TabIndex        =   4
  36.       Top             =   1800
  37.       Width           =   975
  38.    End
  39.    Begin TextBox PasswordEdit 
  40.       Height          =   285
  41.       Left            =   1440
  42.       PasswordChar    =   "*"
  43.       TabIndex        =   3
  44.       Text            =   "PasswordEdit"
  45.       Top             =   1200
  46.       Width           =   2055
  47.    End
  48.    Begin TextBox UserEdit 
  49.       Height          =   285
  50.       Left            =   1440
  51.       TabIndex        =   2
  52.       Text            =   "UserEdit"
  53.       Top             =   720
  54.       Width           =   2055
  55.    End
  56.    Begin TextBox NodeEdit 
  57.       Height          =   285
  58.       Left            =   1440
  59.       TabIndex        =   1
  60.       Text            =   "NodeEdit"
  61.       Top             =   240
  62.       Width           =   2055
  63.    End
  64.    Begin Label Label3 
  65.       BackColor       =   &H00C0C0C0&
  66.       Caption         =   "Password :"
  67.       Height          =   255
  68.       Left            =   120
  69.       TabIndex        =   7
  70.       Top             =   1200
  71.       Width           =   1095
  72.    End
  73.    Begin Label Label2 
  74.       BackColor       =   &H00C0C0C0&
  75.       Caption         =   "Userid :"
  76.       Height          =   255
  77.       Left            =   120
  78.       TabIndex        =   6
  79.       Top             =   720
  80.       Width           =   1095
  81.    End
  82.    Begin Label Label1 
  83.       BackColor       =   &H00C0C0C0&
  84.       Caption         =   "Node :"
  85.       Height          =   255
  86.       Left            =   120
  87.       TabIndex        =   0
  88.       Top             =   240
  89.       Width           =   1095
  90.    End
  91. Function Check_info () As Integer
  92.   'check if Hostname, Userid and password have been defined
  93.   Dim Ok%
  94.   Ok% = True
  95.   If Len(Trim$(ConnectForm!NodeEdit.Text)) = 0 Then
  96.     Ok% = False
  97.   ElseIf Len(Trim$(ConnectForm!UserEdit.Text)) = 0 Then
  98.     Ok% = False
  99.   ElseIf Len(Trim$(ConnectForm!PasswordEdit.Text)) = 0 Then
  100.     Ok% = False
  101.   End If
  102.   If Ok% Then
  103.     Hostname = ConnectForm!NodeEdit.Text
  104.     Userid = ConnectForm!UserEdit.Text
  105.     Password = ConnectForm!PasswordEdit.Text
  106.   End If
  107.   Check_info = Ok%
  108. End Function
  109. Sub Command1_Click ()
  110.   If Check_info() Then
  111.     OkDialog = True
  112.     Unload ConnectForm
  113.   Else
  114.     MsgBox "Enter Nodename, Userid and Password", 64, "Warning"
  115.   End If
  116. End Sub
  117. Sub Command2_Click ()
  118.   OkDialog = False
  119.   Unload ConnectForm
  120. End Sub
  121. Sub Form_Activate ()
  122.   ConnectForm!NodeEdit.Text = Hostname
  123.   ConnectForm!UserEdit.Text = Userid
  124.   ConnectForm!PasswordEdit.Text = Password
  125. End Sub
  126. Sub NodeEdit_Change ()
  127. End Sub
  128. Sub UserEdit_Change ()
  129. End Sub
  130.